***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
*** This Program already converted to Y2K                                                                                                                                                                                                                 
*** S&T Departement     on 29 April 1999 by Ben.Rahman                                                                                                                                                                                                    
***                                                                                                                                                                                                                                                       
***                                                                                                                                                                                                                                                       
set cent on                                                                                                                                                                                                                                               
PROC BOXT                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BCOLO1,BCOLO2,BSHADE,BFRAME                                                                                                                                                                                             
BLONG=LEN(BTEXT)+3                                                                                                                                                                                                                                        
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2                                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
retu                                                                                                                                                                                                                                                      


PROC BOXTD                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BTEXTD,BCOLO1,BCOLO2,BSHADE,BFRAME                                                                                                                                                                                      
BLONG=LEN(BTEXT)+3                                                                                                                                                                                                                                        
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2                                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
IF AEADECI                                                                                                                                                                                                                                                
   @ ANCHORL+1,ANCHORC+2 SAY BTEXTD                                                                                                                                                                                                                       
ELSE                                                                                                                                                                                                                                                      
   @ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                        
ENDIF                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXF                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BCOLO1,BCOLO2,BCOLO3,BSHADE,BFRAME                                                                                                                                                                                      
BLONG=LEN(BTEXT)+3                                                                                                                                                                                                                                        
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2                                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO3/&BCOLO2                                                                                                                                                                                                                              
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC BOX2                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,B1,B2,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BMENU,BSHADE,BFRAME                                                                                                                                                                   
BLONG=LEN(BTEXT)+LEN(B1)+LEN(B2)+7                                                                                                                                                                                                                        
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) PROMPT B1                                                                                                                                                                                                                
@ ANCHORL+1,ANCHORC+4+LEN(BTEXT)+LEN(B1) SAY '/'                                                                                                                                                                                                          
@ ANCHORL+1,ANCHORC+6+LEN(BTEXT)+LEN(B1) PROMPT B2                                                                                                                                                                                                        
MENU TO BMENU                                                                                                                                                                                                                                             
retu                                                                                                                                                                                                                                                      


PROC BOX3                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,B1,B2,B3,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BMENU,BSHADE,BFRAME                                                                                                                                                                
BLONG=LEN(BTEXT)+LEN(B1)+LEN(B2)+LEN(B3)+10                                                                                                                                                                                                               
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) PROMPT B1                                                                                                                                                                                                                
@ ANCHORL+1,ANCHORC+4+LEN(BTEXT)+LEN(B1) SAY '/'                                                                                                                                                                                                          
@ ANCHORL+1,ANCHORC+7+LEN(BTEXT)+LEN(B1)+LEN(B2) SAY '/'                                                                                                                                                                                                  
@ ANCHORL+1,ANCHORC+6+LEN(BTEXT)+LEN(B1) PROMPT B2                                                                                                                                                                                                        
@ ANCHORL+1,ANCHORC+9+LEN(BTEXT)+LEN(B1)+LEN(B2) PROMPT B3                                                                                                                                                                                                
MENU TO BMENU                                                                                                                                                                                                                                             
retu                                                                                                                                                                                                                                                      


PROC BOX4                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,B1,B2,B3,B4,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BMENU,BSHADE,BFRAME                                                                                                                                                                
BLONG=LEN(BTEXT)+LEN(B1)+LEN(B2)+LEN(B3)+17
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) PROMPT B1                                                                                                                                                                                                                
@ ANCHORL+1,ANCHORC+4+LEN(BTEXT)+LEN(B1) SAY '/'                                                                                                                                                                                                          
@ ANCHORL+1,ANCHORC+5+LEN(BTEXT)+LEN(B1) PROMPT B2
@ ANCHORL+1,ANCHORC+6+LEN(BTEXT)+LEN(B1)+LEN(B2) SAY '/'                                                                                                                                                                                                  
@ ANCHORL+1,ANCHORC+7+LEN(BTEXT)+LEN(B1)+LEN(B2) PROMPT B3                                                                                                                                                                                                
@ ANCHORL+1,ANCHORC+8+LEN(BTEXT)+LEN(B1)+LEN(B2)+LEN(B3) SAY '/'                                                                                                                                                                                                  
@ ANCHORL+1,ANCHORC+9+LEN(BTEXT)+LEN(B1)+LEN(B2)+LEN(B3) PROMPT B4

MENU TO BMENU
retu                                                                                                                                                                                                                                                      

PROC BOXI                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BINIT,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BSHADE,BFRAME                                                                                                                                                                         
BLONG=LEN(BTEXT)+5                                                                                                                                                                                                                                        
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE &BINIT=SPACE(1) .AND. LASTKEY()<>27                                                                                                                                                                                                              
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BINIT PICT "A!!!"                                                                                                                                                                                                   
   READ                                                                                                                                                                                                                                                   
   &binit=upper(&binit)                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu       


PROC BOXCS
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME
BLONG=LEN(BTEXT)+LEN(BPICT)+4
IF BSHADE
   SET COLOR TO W/N
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2
ENDIF
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG
IF BFRAME
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE
ENDIF
@ ANCHORL+1,ANCHORC+2 SAY BTEXT
DO WHILE (&BNUMB=0 .or. &BNUMB>&NLIUP .or. &BNUMB<&NLIDOWN)
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'
   READ
ENDDO
retu                                                                                                                                                                                                                                               
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXL                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BLOGIC,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BSHADE,BFRAME                                                                                                                                                                        
BLONG=LEN(BTEXT)+5                                                                                                                                                                                                                                        
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
INKEY()                                                                                                                                                                                                                                                   
DO WHILE LASTKEY()<>27 .AND. LASTKEY()<>13                                                                                                                                                                                                                
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BLOGIC PICT "Y"                                                                                                                                                                                                  
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          

** Get Date 
PROC BOXD                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BDATE,BCOLO1,BCOLO2,BCOLO3,BCOLO4,DALIUP,DALIDOWN,BSHADE,BFRAME                                                                                                                                                         
BLONG=LEN(BTEXT)+12                                                                                                                                                                                                                                       
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
** DO WHILE (&BDATE=CTOD('  /  /    ') .or. &BDATE>&DALIUP .or. &BDATE<&DALIDOWN) .and. LASTKEY()<>27
DO WHILE (&BDATE=CTOD('  /  /    ') .or. &BDATE>&DALIUP .or. &BDATE<&DALIDOWN) .or. LASTKEY()=27

   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BDATE                                                                                                                                                                                                            
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC BOXDM                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BDATE,BCOLO1,BCOLO2,BCOLO3,BCOLO4,DALIUP,DALIDOWN                                                                                                                                                                       
BLONG=LEN(BTEXT)+2                                                                                                                                                                                                                                        
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BDATE                                                                                                                                                                                                               
READ                                                                                                                                                                                                                                                      
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXE                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN,BSHADE,BFRAME                                                                                                                                                                 
&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                     
BLONG=LEN(BTEXT)+BLENEN+4                                                                                                                                                                                                                                 
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE &BENTER=SPACE(BLENEN) .AND. LASTKEY()<>27                                                                                                                                                                                                        
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"                                                                                                                                                                                                 
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      


** same as BOXE except that it NO ESC key is allowed
PROC BOXNOE                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN,BSHADE,BFRAME                                                                                                                                                                 
&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                     
BLONG=LEN(BTEXT)+BLENEN+4                                                                                                                                                                                                                                 
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE &BENTER=SPACE(BLENEN)  
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"                                                                                                                                                                                                 
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      

PROC BOXEm                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN,BSHADE,BFRAME                                                                                                                                                                 
&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                     
BLONG=LEN(BTEXT)+BLENEN+4                                                                                                                                                                                                                                 
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
*DO WHILE &BENTER=SPACE(BLENEN)                                                                                                                                                                                                                           
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"                                                                                                                                                                                                    
READ                                                                                                                                                                                                                                                      
if lastkey()=27                                                                                                                                                                                                                                           
   return                                                                                                                                                                                                                                                 
endif                                                                                                                                                                                                                                                     
                                                                                                                                                                                                                                                          
*ENDDO                                                                                                                                                                                                                                                    
retu                                                                                                                                                                                                                                                      

***  -
PROC BOXEN                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN                                                                                                                                                                               
*&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                    
BLONG=LEN(BTEXT)+BLENEN                                                                                                                                                                                                                                   
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"                                                                                                                                                                                                    
READ                                                                                                                                                                                                                                                      
retu

** same as BOXEN except that it does not allow EMPTY and NO ESC string
PROC BOXENNOE                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN                                                                                                                                                                               
*&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                    
BLONG=LEN(BTEXT)+BLENEN                                                                                                                                                                                                                                   
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           

@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"
READ                                                                                                                                                                                                                                                   

DO WHILE &BENTER=SPACE(BLENEN)
  @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"
  READ                                                                                                                                                                                                                                                   
ENDDO
retu


**  Text input 
PROC BOXLAB
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN,BSHADE,BFRAME                                                                                                                                                                 
&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                     
BLONG=LEN(BTEXT)+BLENEN+4                                                                                                                                                                                                                                 
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
                                                                                                                                                                                                                                                          
@ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"                                                                                                                                                                                                    
READ                                                                                                                                                                                                                                                      
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXO                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BENTER,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BLENEN,BSHADE,BFRAME
&BENTER=SPACE(BLENEN)                                                                                                                                                                                                                                     
BLONG=LEN(BTEXT)+BLENEN+4                                                                                                                                                                                                                                 
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE &BENTER=SPACE(BLENEN) .AND. LASTKEY()<>27 .and. lastkey()<>32                                                                                                                                                                                    
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BENTER pict "@!"                                                                                                                                                                                                 
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXN                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME                                                                                                                                                     
BLONG=LEN(BTEXT)+LEN(BPICT)+4                                                                                                                                                                                                                             
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE (&BNUMB=0 .or. &BNUMB>&NLIUP .or. &BNUMB<&NLIDOWN) .and. LASTKEY()<>27                                                                                                                                                                           
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'                                                                                                                                                                                              
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC BOXNE                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME                                                                                                                                                     
BLONG=LEN(BTEXT)+LEN(BPICT)+4                                                                                                                                                                                                                             
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE LASTKEY()<>27                                                                                                                                                                                                                                    
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'                                                                                                                                                                                              
   READ                                                                                                                                                                                                                                                   
   IF &BNUMB>&NLIUP .OR. &BNUMB<=0                                                                                                                                                                                                                        
      &BNUMB=&NLIUP                                                                                                                                                                                                                                       
      LOOP                                                                                                                                                                                                                                                
   ENDIF                                                                                                                                                                                                                                                  
   EXIT                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXND                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BPICTD,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME                                                                                                                                              
BLONG=LEN(BTEXT)+LEN(BPICT)+4                                                                                                                                                                                                                             
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE (&BNUMB=0 .or. &BNUMB>&NLIUP .or. &BNUMB<&NLIDOWN) .and. LASTKEY()<>27                                                                                                                                                                           
   IF AEADECI                                                                                                                                                                                                                                             
      @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICTD'                                                                                                                                                                                          
   ELSE                                                                                                                                                                                                                                                   
      @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'                                                                                                                                                                                           
   ENDIF                                                                                                                                                                                                                                                  
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
PROC BOXNN                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME                                                                                                                                                     
BLONG=LEN(BTEXT)+LEN(BPICT)+4                                                                                                                                                                                                                             
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE (&BNUMB=0 .or. &BNUMB>&NLIUP .or. &BNUMB<&NLIDOWN) .or. LASTKEY()=27                                                                                                                                                                             
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'                                                                                                                                                                                              
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXNND                                                                                                                                                                                                                                               
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BPICTD,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME                                                                                                                                              
BLONG=LEN(BTEXT)+LEN(BPICT)+4                                                                                                                                                                                                                             
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
DO WHILE (&BNUMB=0 .or. &BNUMB>&NLIUP .or. &BNUMB<&NLIDOWN) .or. LASTKEY()=27                                                                                                                                                                             
   IF AEADECI                                                                                                                                                                                                                                             
      @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICTD'                                                                                                                                                                                          
   ELSE                                                                                                                                                                                                                                                   
      @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'                                                                                                                                                                                           
   ENDIF                                                                                                                                                                                                                                                  
   READ                                                                                                                                                                                                                                                   
ENDDO                                                                                                                                                                                                                                                     
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXNI                                                                                                                                                                                                                                                
PARAMETERS  ANCHORL,ANCHORC,BTEXT,BNUMB,BPICT,BCOLO1,BCOLO2,BCOLO3,BCOLO4,NLIUP,NLIDOWN,BSHADE,BFRAME                                                                                                                                                     
BLONG=LEN(BTEXT)+LEN(BPICT)+4                                                                                                                                                                                                                             
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ANCHORL+3,ANCHORC+BLONG+2                                                                                                                                                                                                
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ANCHORL+2,ANCHORC+BLONG                                                                                                                                                                                                         
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ANCHORL+2,ANCHORC+BLONG DOUBLE                                                                                                                                                                                                    
ENDIF                                                                                                                                                                                                                                                     
@ ANCHORL+1,ANCHORC+2 SAY BTEXT                                                                                                                                                                                                                           
** DO WHILE  LASTKEY()<>27                                                                                                                                                                                                                                
** DO WHILE (&BNUMB>&NLIUP .or. &BNUMB<&NLIDOWN) .and. LASTKEY()<>27                                                                                                                                                                                      
   @ ANCHORL+1,ANCHORC+3+LEN(BTEXT) GET &BNUMB PICT '&BPICT'                                                                                                                                                                                              
   READ                                                                                                                                                                                                                                                   
** ENDDO                                                                                                                                                                                                                                                  
retu                                                                                                                                                                                                                                                      
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC BOXM                                                                                                                                                                                                                                                 
PARAMETERS  ANCHORL,ANCHORC,ENDL,ENDw,BCOLO1,BCOLO2,BCOLO3,BCOLO4,BSHADE,BFRAME                                                                                                                                                                           
IF BSHADE                                                                                                                                                                                                                                                 
   SET COLOR TO W/N                                                                                                                                                                                                                                       
   @ ANCHORL+1,ANCHORC+2 CLEA TO ENDL+1,ENDw+2                                                                                                                                                                                                            
ENDIF                                                                                                                                                                                                                                                     
SET COLOR TO &BCOLO1/&BCOLO2,&BCOLO3/&BCOLO4                                                                                                                                                                                                              
@ ANCHORL,ANCHORC CLEA TO ENDL,ENDw                                                                                                                                                                                                                       
IF BFRAME                                                                                                                                                                                                                                                 
   @ ANCHORL,ANCHORC TO ENDL,ENDw                                                                                                                                                                                                                         
ENDIF                                                                                                                                                                                                                                                     
return                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC ADDRESSA                                                                                                                                                                                                                                             
TITLE1=ALLTRIM(AEANAME)+' - '+ALLTRIM(AEACOUN)                                                                                                                                                                                                            
TITLE2=ALLTRIM(AEAADDR)+' - '+ALLTRIM(AEACITY)                                                                                                                                                                                                            
@  0,  0 TO 24,79 DOUBLE                                                                                                                                                                                                                                  
SET COLO TO GR+/RB+,GR+/RB+                                                                                                                                                                                                                               
if len(title1)<len(title2)                                                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE2)/2) CLEAR TO  3,41+(LEN(TITLE2)/2)                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE2)/2) TO  3,41+(LEN(TITLE2)/2) DOUBLE                                                                                                                                                                                               
else                                                                                                                                                                                                                                                      
   @  0, 38-(LEN(TITLE1)/2) CLEAR TO  3,41+(LEN(TITLE1)/2)                                                                                                                                                                                                
   @ 0, 38-(LEN(TITLE1)/2) TO  3,41+(LEN(TITLE1)/2) DOUBLE                                                                                                                                                                                                
endif                                                                                                                                                                                                                                                     
@  1, 40-(LEN(TITLE1)/2) SAY TITLE1                                                                                                                                                                                                                       
@  2, 40-(LEN(TITLE2)/2) SAY TITLE2                                                                                                                                                                                                                       
SET COLO TO BG+/B,W+/N                                                                                                                                                                                                                                    

**** Buu ****
@  5, 65 SAY DATE()                                                                                                                                                                                                                                       
@  4,63 TO  6,76                                                                                                                                                                                                                                          
**** Buu *****

* @  5,67 SAY DATE()                                                                                                                                                                                                                                        
* @  4,65 TO  6,76                                                                                                                                                                                                                                          
RETURN                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                          
PROC ADDRESSS                                                                                                                                                                                                                                             
                                                                                                                                                                                                                                                          
TITLE1=ALLTRIM(AEANAME)+' - '+ALLTRIM(AEACOUN)                                                                                                                                                                                                            
TITLE2=ALLTRIM(AEAADDR)+' - '+ALLTRIM(AEACITY)                                                                                                                                                                                                            
@  0,  0 TO 24,79 DOUBLE                                                                                                                                                                                                                                  
SET COLO TO GR+/RB+,GR+/RB+                                                                                                                                                                                                                               
                                                                                                                                                                                                                                                          
if len(title1)<len(title2)                                                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE2)/2) CLEAR TO  3,41+(LEN(TITLE2)/2)                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE2)/2) TO  3,41+(LEN(TITLE2)/2) DOUBLE                                                                                                                                                                                               
else                                                                                                                                                                                                                                                      
   @  0, 38-(LEN(TITLE1)/2) CLEAR TO  3,41+(LEN(TITLE1)/2)                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE1)/2) TO  3,41+(LEN(TITLE1)/2) DOUBLE                                                                                                                                                                                               
endif                                                                                                                                                                                                                                                     
@  1, 40-(LEN(TITLE1)/2) SAY TITLE1                                                                                                                                                                                                                       
@  2, 40-(LEN(TITLE2)/2) SAY TITLE2                                                                                                                                                                                                                       
SET COLO TO BG+/B,W+/N                                                                                                                                                                                                                                    

**** Buu ****
@  5, 65 SAY DATE()                                                                                                                                                                                                                                       
@  4,63 TO  6,76                                                                                                                                                                                                                                          
**** Buu *****

* @  5, 67 SAY DATE()                                                                                                                                                                                                                                       
* @  4,65 TO  6,76                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
RETURN                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
PROC ADDRESSV                                                                                                                                                                                                                                             
@  1, 18 SAY "A.E.A.  INTERNATIONAL   CLINIC   -   JAKARTA"                                                                                                                                                                                               
@  2, 18 SAY "JALAN PURI SAKTI # 10-10  -  JAKARTA SELATAN"                                                                                                                                                                                               
@  5, 67 SAY DATE()                                                                                                                                                                                                                                       
@  0,  0 TO 20,79 DOUBLE                                                                                                                                                                                                                                  
@  0, 14 TO  3,65 DOUBLE                                                                                                                                                                                                                                  
@  4, 65 TO  6,76                                                                                                                                                                                                                                         
RETURN                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
                                                                                                                                                                                                                                                          
proc addrtitl                                                                                                                                                                                                                                             
parameter title                                                                                                                                                                                                                                           
SET COLOR TO B/W                                                                                                                                                                                                                                          
@  4, 3 CLEA TO 6,LEN(TITLE)+6                                                                                                                                                                                                                            
@  5, 5 SAY title                                                                                                                                                                                                                                         
@  4, 3 TO 6,len(title)+6 DOUBLE                                                                                                                                                                                                                          
SET COLOR TO W+/B,W+/N                                                                                                                                                                                                                                    
RETURN                                                                                                                                                                                                                                                    
                                                                                                                                                                                                                                                          
PROC ADDRESSC                                                                                                                                                                                                                                             
@ 0,0 TO 8,79 DOUBLE                                                                                                                                                                                                                                      
SET COLO TO GR+/RB+,GR+/RB+                                                                                                                                                                                                                               
TITLE1=ALLTRIM(AEANAME)+' - '+ALLTRIM(AEACOUN)                                                                                                                                                                                                            
TITLE2=ALLTRIM(AEAADDR)+' - '+ALLTRIM(AEACITY)                                                                                                                                                                                                            
                                                                                                                                                                                                                                                          
*@  0, 38-(LEN(TITLE2)/2) TO  3,41+(LEN(TITLE2)/2) DOUBLE                                                                                                                                                                                                 
if len(title1)<len(title2)                                                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE2)/2) CLEAR TO  3,41+(LEN(TITLE2)/2)                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE2)/2) TO  3,41+(LEN(TITLE2)/2) DOUBLE                                                                                                                                                                                               
else                                                                                                                                                                                                                                                      
   @  0, 38-(LEN(TITLE1)/2) CLEAR TO  3,41+(LEN(TITLE1)/2)                                                                                                                                                                                                
   @  0, 38-(LEN(TITLE1)/2) TO  3,41+(LEN(TITLE1)/2) DOUBLE                                                                                                                                                                                               
endif                                                                                                                                                                                                                                                     
@  1, 40-(LEN(TITLE1)/2) SAY TITLE1                                                                                                                                                                                                                       
@  2, 40-(LEN(TITLE2)/2) SAY TITLE2                                                                                                                                                                                                                       
SET COLOR TO  BG+/B                                                                                                                                                                                                                                       
RETURN                                                                                                                                                                                                                                                    
